home *** CD-ROM | disk | FTP | other *** search
/ Softdisk G-S 112 / SGDS 112.2mg / SDGS.112 / D / CHAOS (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1989-09-05  |  506 b   |  18 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10  REM  Explorer Preparation program
  2. 15  REM  (C)Cregg Hardwick, 1989
  3. 16  REM   Installs PrintWorks Font generator and Box.shadow
  4. 17  REM   Relocates start of program and runs Explorer 
  5. 18  REM 
  6. 20  PRINT  CHR$(21) CHR$(12)
  7. 40  HGR : POKE 49234,0
  8. 50  PRINT  CHR$(4)"Brun Printworks"
  9. 55  IF  PEEK(48896) = 76  THEN  PRINT  CHR$(4)"PR#A$30A"
  10. 60  POKE 788,0: POKE 789,13
  11. 70  PRINT  CHR$(4)"Bload thick,A$D00"
  12. 80  PRINT  CHR$(4)"Bload Box.shadow"
  13. 100 LOC = 24832
  14. 110  REM    256 bytes at 24576 reserved for Box.Shadow
  15. 120 HA = LOC/256
  16. 130 LA = LOC -(HA *256)
  17. 140  POKE LOC -1,0: POKE 103,LA: POKE 104,HA
  18. 150  PRINT  CHR$(4);"Run Explorer.M"